===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 05-11-93 (22:19)             Number: 49
From: STEVE DEMO                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Ship bas 1 of 3                Conf: (35) Quick Basi
---------------------------------------------------------------------------
'This program will move a ship around the screen with a mouse
'and allow you to fire a laser on a moveing ship
'use the left mouse to exit use the right mouse to fire the laser
'Save this script to a file, edit out all of the non-QB related text and
'execute it in a QB environment to retrieve SHIP.BAS.
DEFINT A-Z:FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"SHIP.BAS"
T$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789()"
G"N80AGK1B1bsyZTwzKbIzVjhiPrhiz9wDGC2B0bsA0bcvVL3B0fgi8CKpnOWju9gi
G"Tvgi0HwAZbsAZbsyGG2BIjwEGKMzGK3B1bYCV1wzKfwEG0wyRvgiHbcjGiwEGu3C
G"LLMBNbsB51GcN0wz0H2BKbYBMbsyU5wATfgDP9MBGqhAL5giYvwBL1MyLjhiTvgi
G"8CMpnOWjb5gzGe2CGCxA0HgiT92C0bYBMbsB5bYDVj3AGqhAPnhiWj3BNjxyTbsA
G"Zbcu1jgBPngie9wBHLMBnOWjnOWjT0slT0slT0slT0slT0slT0slT0slT4ZvYLgD
G"0vMBGiuEGaYu0vMDLbcrL12BGaci80slT0slT0slT0slT0slnOWjGaciGaciGaci
G"GaciGaciGaciGaciGaciGaciGaciGaciGaIm5idnGmfvj50up5eiejLlnOWjGaci
G"GaciGaciGaciGaciGaciGaciGaciGaciGaciGaciGaIru5YvbLLtfXssobcn2Gtm
G"20GcN0GcNu1CLLMBNbYrfrfiH5gzGavvubYDOLgBLbsBVzxzP52zGqhALbIiivNB
G"0vgzIaYCOLgCGK2CG0wDJHgiT9MCLbszMzwzJrxA2vwdkCcDOvMBGa1qpbvwGiwD
G"0bICLfxDPjxzZbsB1ngAG02BYvgi0LwBLLMBN5cijbcAHzxzGKgDGq2B35giM9MC
G"GSuz5bsBVzxzTvMB01GcNiwD0bstVv3CLbsBVzxzTvMB0bICLfxDPjxzZbsBVjxz
G"GqxATvwAUDgiZLMBJvgi0HwzG02B1nxzGmwyUbsBVzxzG0wDJHgiMf2C0vMCnOWj
G"0HwyUbcDOvgiRvwEZbYCVbssG8gC0vgzGy2BYbcuJ9gC5bsAUbcDOL2CGqwzT9gi
G"UiuD0bcud9euzbsAZbcDOvgiIv2C0bsBLrhAVrwdkCssGGwy2vgiM9wDUrgiM9MC
G"GCNCPrxzP52zG8MyQv2y0nhi3LgDObcDOvgitnKufvKtGmhDHrxBL5gDUaYtRbsz
G"U9wDNHwdkCIqHjwzSLMBNbcALjxzNmhi0HwzGmhDHr3C60GcN0GcNqfAPnhiWj3B
G"NjxyTbYDPXgBGixDUbIyLnhDGChAL5gid9wBWLgBLrMlnOWjm9wyKbcDOvgiWj3B
G"NjxyTbsyZbIzVXgBVD3CGOdiT0IpGeLqG8ctGeLqGmfsjbvdkCsdkCcvVbIzPjxz
G"GqhALbctHnxzYbcCYv2CZbcDOvgisL0rirfin9uvtveicvfvu9KtnOWju9giL5gz
G"GqhALbcrf10tGaLCLn3CGqhALbctfzevG00tvnvrGiuvur1to1GcNuKBQ9wEnOqd
G"kqurgLKtubsqTOvdkivrnbcjj50qmvfrfPdiNeLqUiusNaciNOIkQasDZvgirjew
G"UiusGKMBGafrtDtdkqurdXuqsveitvLqGKKB0j3BGGsknOarfnetbjvrGmvvcbst
G"Vv3CL9MBGGsknOarfnetbjvrGmvvcbstVv3CL9MzMbckP0Gcev0qmfKufbYuvjei
G"ejxy3n1yYvwzUbckP0Gcev0qmfKufbYuvjeiWfwDZvgiOqxAJT2CLKsdkqurdXuq
G"sveitvLqGivzKnfAPbhiO4wz3HhlG4wz3LxknOarfnetbjvrGmvvcbIrSfwBLbck
G"zb3BZvclGGfCVnxjP0Gcev0qmfKufbYuvjeicXwDLnfAPbhiO4wz3HhlG4wz3Lxk
G"nOarfnetbjvrGyuvonevj9KtG00B1nxzj52C0fgBSvgzLackP0Gcev0qmfKufbYu
G"vjein9wDZv2uLrhsVjhiO0uAUvclG0uy4vsknOarfnetbjvrGmvvcbstVv3CLnvz
G"0zvzYrhiO0uAUvclG0uy4vsknOarfnetbjvrGmvvcbstVv3CLX0BJfgDLbckyb3B
G"ZvclGKfCVnxjP0Gcev0qmfKufbYuvjein9wDZv2u0fgD1nhiOyvzYrxjSacsVjxj
G"SasBIvhD09MBZrsknOarj1eitHuqsverGivzNHfibnfisv2zuLhCLHvdkCcjeLLt
G"b1usd1GcGKKB0j3BnOaidfetmbstVv3CLnfDHrxDZHIBLDhELWciUv2D5vclG0My
G"1rhDV52CKKsdkaIub5erp1usAveiuLutfjvdkasdkaYudjvrf5ei3WciSasmSacm
G"nOaiejxy3n1yYvwzU1GcnOaiqn0tqLfiXWciY0GcGGhi9aIuoreiQasm1atdkasE
G"G0dis5erGOciYadmnOaisvgztHwAWbcESasEnOain9wDZv2uLrhsVjhi0WciYCdm
G"nOain9wDZv2uLrNvLjhDGedmSasm3atdkastVv3CLnfDHrxDZbIBLDhELWciUv2D
G"5vclG0My1rhDV52CK0GcGGfCVnxjG0diUv2D4vsdkaswW92CLaspG4wz3LxjG8ci
G"Y0GcG8gBK5swW92CLaspGKfCVnxjnOaiVXgzUGfCVnxjG0diyb3BZvsdkq0tnOqd
G"kaciVXgzUv2D4vci9aIBLDhEL0GcGaYBSrMBLDxELaspG4wz3LxjG8ciY0GcGacw
G"W92CLaspG8gBK5wz3HxjnOaiGKfCVnxjG0diVXgzUv2D5vsdkacitnKufvKtGWci
G"SasmSacmGaciGaciGaciGaYjiLgzLbcDOvgiKjxy3LMBNbYBMbcDOvgiZHwAW1Gc
G"Gacud9euzbImSasmnOaiGieB1v2uOLgCGGfCVnxjGSci1Wcizb3BZvciRaYmnOai
G"GivzKnfAPbhi4Xci51GcGaIrSfwBLbswW92CLaYkGmdlGGfCVnxjGSci20GcGacu
G"d9euzbsmSacmnOaiG00B2v2COLgCG0din9MDLnhAPbhiRaconOaiGq0tGuLtuLet
G"G8gBK5wz3HxjGWJpG4wz3HxjG8KuG8gBK5wz3LxjGWJpG4wz3LxjG8ciY0Gcjaci
G"n9wDZv2u0fgD1nhiUv2D4vclG4wz3LxjSasBIvhD09MBZrsdkKaiGKKrG0My1rhD
G"V52CKacp(aIiIacvivKtGuewjrfie9udkKaiGGfCVnxjG0diUv2D4vsdkKaiGKfC
G"VnxjG0diUv2D5vciVaImnOqcGaYyVvNB0bspGm2B15gDGSciX0Gcjacijzein9MD
G"LnhAPbhi(asmWadiuHurobsryLevGq0tnOqcGassgbYyVvNB0bIpGitnGqfsf5ud
G"kKaiGacin9MDLnhAPbhi9astVzxzZHwAWbYkGetdkKaiGacigXwyTvgizb3BZvci
G"RaYmSacwW92CLaYkGytdkKaiGacimLKtfbckzb3BZvciRasmWWciyb3BZvciRaIm
G"XKslOKfCVnxjGSciXadlGGfCVnxjGSciYetkSacmSaIqg1GcjaciGaYyVvNB0bsp
G"GatdkKaiGuKtebssg1GcGacim90tq1GcGacijzein9MDLnhAPbhi(asmWadiuHur
G"o1GcjacinOqcGacEG0dis5erGOciXudmnOqcGasEG0dis5erGOciYadmnOqcGacu
G"d9euzbImSasmnOqcGaIuLr2uOLgCGGhlGKxdkKaiGieB1v2uOLgCGGfCVnxjGSci
G"1Wcizb3BZvciRaYmnOqcGastVzxzZHwAWbspGatdkKaiGaftbLfiI0My0jdmWWMn
G"0acp8WdpMfwyM5Jp(4JinOaiGasroreijzudkaciGm1qsvurobclGWciWWciWaci
G"GaciGaciGaciNm1DPr3yObIqHn2AGy0BYbYuWv2yPfgBGuKzMv2y0nxdkaciGm2B
G"15gDG0diW0GcjassgbsBIvhD09MBZrci9aIimjciuHurobsryLevGq0tnOqcGKKr
G"G0My1rhDV52CKaspGiIuIacvivKtnOqcGaftbLfiI0KqujtnWWMnWacp8y2zbv2z
G"b5JpIaciGaciGaciGaYjSf2CLj3uVvNBK1Gcjacud9euzbcmSacnnOqcGy0tsbct
G"HnxzYbspGediu9ei4adiGaciGaciGaciGaciGCctHnxzYbIuH52zL1GcjKautvev
G"GGswW92CLaYkGKdlGGfCVnxjG0cimf2CLjhiRasmYKclGeJmnOqcja1ufrfiOKfC
G"VnxjGSciXadlGGfCVnxjG0cimf2CLjhiRasmWKclGednnOqcja1ufrfiOKfCVnxj
G"GSciXudlGGfCVnxjG0cimf2CLjhiRasmYKclGeJmnOqcja1ufrfiOKfCVnxjGSci
G"XqdlGGfCVnxjG0cimf2CLjhiRasmWKclGednnOqcjGuA0bspGa1tj5evOKfCVnxj
G"GSciXadlGGfCVnxjG0cimf2CLjhiRasoP0GcjKaAPr3CG0diq9usorfkzb3BZvci
G"Rasm0Wciyb3BZvciTactHnxzYbYkGKtknOqcGaciGacijzeiiLgDG0diXidipjfi
G"OLgDZbspGeJmGqfsf5udkKqcGaYuJ9MCLvci9aYuJ9MCLvciRaIm10GcjKaiGa1q
G"pbvwGqdlGatdkKqcGacig9KuGm0B15gDK92DUbspGetnGq1tGeditrvrqbslX0Gc
G"jKaiGaciGacit9uvorei1ydmGScid9wDUrhzVDNBSaIlWytdkKqcGaciGaciGm1t
G"v5erGedmWaYkGm0B15gDK92DUXciUetdkKqcGaciGaciGmussnetfbckzb3BZvci
G"RasmYWciyb3BZvciTactHnxzYbYkGKtkSaYqVvNB0r2B35glGm0B15gDK92DUbYk
G"GytdkKqcGaciGaciGm0tm9KuGWcid9wDUrhzVDNBG0ciX0GcjKaiGaItfHfvGm0B
G"15gDK92DU1GcjKaiGacEG0dis5erGOciXudmnOqcjaciGKhi9aIuoreiQaImWatd
G"kKqcGacin9MDLnhAPbhi9acmnOqcjacifHvsubIrpjvdkKaiGaciGasroreijzud
G"kKaiovewubctHnxzY1GcGaciGaciGuKtebssg1Gcm90tq1GcnOGuf1eiKmfvbrvs
G"d1GctvLqGieB1v2uOLgCGGIBLDhESaIBLDxEP0GcNqcrz5uqnL0qnOGufrusnbIr
G"OmJnXKsdk0GcgHIm4Kci9asm1Otdkyek0qtkG0di4OdigHcn1Kci9aYn6aIrOqJn
'End of page 1

___ Blue Wave/QWK v2.11

--- Maximus 2.01wb
 * Origin: Semper Fi BBS  Ft. Wayne, IN  (219) 424-4292 (1:236/21)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20